home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 23
/
64er_Magazin_Sonderheft_23_19xx_Markt__Technik_de_Disk_1_of_2_Side_B.d64
/
mask gen.
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
2KB
|
53 lines
10 print"[147]":a$=" "
20 printa$:print" [146] [164][164][164][164][164][164][164][164][164][164][164][169] [146] [164][164][164][164][164][164][164][164][164][169] [146]"
30 print" [146] khz grf [146] % pls [146]"
40 print" [169]";left$(a$,19);"[169]";left$(a$,18)
50 printa$:print" [146] [164][164][164][164][164][164][164][164][164][164][164][169] [146] [169]";left$(a$,13)
60 print" [146] hz frq wav [146] dreieck "
70 print" [169]";left$(a$,22);"[146] saegezahn "
80 printleft$(a$,25);"[146] rechteck "
90 print" [146] [169][146] [169][146] [169][146] [169][146] [169][146] [169][146] [169] [146] rauschen "
100 b$=" [146] [146] [146] [146] "
110 b$=b$+"[146] [146] [146] "
120 printb$;" [146] [192] aus "
130 printb$;" [169]";right$(a$,14)
140 printb$;right$(a$,16)
150 printb$;" [146][169] tes "
160 printb$;" = [146] [146][209] rmd "
170 printb$;" [146][169] end "
180 printb$;" [146][169]";right$(a$,11)
190 print" [146] [210] [146] [210] [146] [210] [146] [210] [146] [210] [146] [210] [146] = [146] [146][209] syn voi "
200 print" [169] [169] [169] [169] [169] [169] [169] [146][169] ";right$(a$,11)
210 print" a d s r v r f [146][169] [146] [164][169] "
220 print" t e u e o e i = [146] [146][209] fil [146] 1 "
230 print" t c s l l s l [146][169] [169] "
240 printa$:printa$;
250 fori=55296to56255:pokei,12:nexti:fori=56256to56295:pokei,11:nexti
260 x=2:y=10:b=21:h=10:c=15:gosub500
270 y=11:h=8:c=0:fors=0to6:x=3+s*3:gosub520:nexts
280 x=2:y=2:b=13:h=3:c=15:gosub500:y=6:gosub500
290 x=3:y=2:b=11:h=2:c=13:gosub500:y=6:gosub500
300 x=21:y=2:b=11:h=3:c=15:gosub500
310 x=22:y=2:b=9:h=2:c=13:gosub500
320 x=24:y=6:b=3:h=7:c=15:gosub500
330 x=25:y=7:h=5:c=0:gosub520
340 x=24:y=14:b=4:h=9:c=15:gosub500
350 x=25:b=2:c=0:fors=0to2:y=15+s*3:gosub510:nexts
360 x=35:y=20:b=3:h=3:c=15:gosub500
370 x=36:y=20:h=2:c=13:gosub520
380 poke55925,0:poke56045,0:poke56165,0
390 ad=1024:n=1000:n$="mask":gosub420
400 ad=55296:n$="c.mask":gosub420
410 end
420 open1,8,1,n$
430 print#1,chr$(ad-int(ad/256)*256);
440 print#1,chr$(ad/256);
450 fori=0ton-1
460 print#1,chr$(peek(ad+i));
470 nexti
480 close1
490 return
500 fori1=xtox+b-1:fori2=ytoy+h-1:poke55296+i1+i2*40,c:nexti2,i1:return
510 fori=xtox+b-1:poke55296+i+y*40,c:nexti:return
520 fori=ytoy+h-1:poke55296+x+i*40,c:nexti:return